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, T I TLE LT15/19 SYSTEM EXERCISER TEST 
, EBREU 

/COPYRIGHT MARCH 21, 1972 
/REV, C, REVISED APRIL 21, 1972 

/DIGITAL EQUIPMENT CORPORATION MAYNARD, MASS, 01754 
/PROGRAMMER! EARL L, BOUSE 
/ 

/ 

/this program ?s designed to exercise the transmitter 

/RECEIVER AND TELEPRINTERS FOR THE LT15/19, THE PROGRAM 
/WILL EXERCISE BOTH THE LT15 AND LU9 S I MULTANEOULSY 
/IN CONFIGURATIONS OF 1 TO 16 TELETYPES, THE TeST STARTS 
/BY TYPING ALL CHARACTERS SIMULTANEOUSLY ON ALL 
/AVAILABLE TELETYPES AND THEN RUNS A "FLOATING 
/TELETYPE" TEST, JN THIS TEST, ONE TELETYPE IS LEFT 
/SILENT WHILE ALL remaining TELETYPES CONTINUE 
/TYPING OUT THE CHARACTER SET, AFTER COMPLETING 
/TEN LINES OF CHARACTER SETS THE 'SILENT' TELETYPE 
/IS RE-STARTED AND ANOTHER TELETYPE IS LEFT SILENT, 

/ANY CHARACTER MAY BE TYPED IN QN THE 'SILENT' 

/TELETYPE AND IT WILL ECHO BACK THE CHARACTER 
/THUS TESTING THE REC I VER SECTION OF THAT TELETYPE, 
/PROVISION IS MADE TO 'HOLD' ANY SELECTED TELETYPE IN AN 
/ ! ECHO ' MODE VIA TYPING A ' CNTR A' FOLLOWED VIA A 
/NUMBER OF '1 TO 161 ON any SILENT TELETYPE AND TERMINATE 
/THE INPUT WITH 'CARRIAGE RETURN', TYPING 'RUBOUT' 

/WJLL RUBOUT ANY PRECLUDING NUMBER AND TYPING A SECOND 
/'CNTR A' WILL RELEASE THE 'HOED' MODE, 


707764 A 
707702 A 


E 3 A = 7 2 7 7 6 4 
EEM=707702 
/ 



00000 

R 

604034 

A 

USERSW 

604034 


/I/O DEVICE WITH MULTI - 'API' CHANNELS 

O 

o 

0000:1 

R 

000035 
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35 


/LU5/19 RECEIVER 'SPJ' ADDRESS '75! 
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R 
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R 
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o 

00004 

R 
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R 
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O 
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000031 

R 


, DS A 
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00006 

R 

142461 
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,SIXBT 
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o 

o 

00007 

R 

656171 

A 




00010 

R 

020000 

A 

DATA5W 

20000 


/DATA SW4 INHIBITS LT15/19 TEST 
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R 


A 


.BLOCK 

7 


o 

o 

00020 

R 

000000 

A 

SYSERR 

0 


/ERROR INDICATOR FOR MONITOR, 

00021 

R 

000000 

A 


0 


/W,C, For DATA WORD ERROR CODES 



00022 

R 

000000 

A 

ERQQDE 

0 


/ERROR CODE 

o 

o 

00023 

R 

000000 

A 


0 



00024 

R 

000000 

A 


0 





00025 

R 

000000 

A 


0 




o 

00026 

R 

000000 

A 


0 



o 

00027 

R 

000000 

A 


0 
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R 
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/ 
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/INITILIZE THE LUB/l* TEST 



00031 

R 

000000 

A 

l NIT 0 




00032 

R 

707764 

A 

EBA 



o 

00033 

R 

707702 

A 

EEM 




00034 

R 

200031 

R 

LAC 

init 



00035 

R 

040115 

R 

DAC 

SERVCE 


c 

00036 

R 

140020 

R 

DZM 

SYSERR 

/CLEAR ERROR LOCATIONS 


00037 

R 

140021 

R 

OHM 

SYSERR+1 


o 

00040 

R 

140022 

R 

DZM 

ENCODE 


00041 

R 

141040 

R 

DZM 

LONTTY 



00042 

R 

141041 

R 

DZM 

TLSMO 


o 

00043 

R 

141024 

R 

DZM 

TEMP6 


00044 

R 

141037 

R 

DZM 

MODES W 



00045 

R 

141032 

R 

DZM 

TTYHQLP 


o 

00046 

R 

776100 

A 

LAW «1 700 



00047 

R 

041015 

R 

DAC 

LOOP A 

/SET UP FIRST TEST 


00050 

R 

201175 

R 

LAC 

(DSTSWin 


o 

00051 

R 

040122 

R 

DAC 

DSTSW1 


00052 

R 

201176 

R 

LAC 

(RECA ' 



00053 

R 

040270 

R 

DAC 

0STSW2 


0 

00054 

R 

100565 

R 

JMS 

HQLPSW 

/CHECK FOR HOLD SWITCH 

00055 

R 

141036 

R 

DZM 

HQLSET 

/clear hold switch 


00056 

R 

777400 

A 

LAW 

« 4 00 


O ' 

00057 

R 

041016 

R 

DAC 

WAITCT 

/WAIT COUNTER FOR FLAGS 

00060 

R 

760215 

A 

LAW 

215 



00061 

R 

041025 

R 

DAC 

TEMP 7 

/SET UP TO TYPE CARRIAGE RETURN 

o 

00062 

R 

1000/4 

R 

JMS 

TRNSMT 

/JNITILIHE TTY'S 

00063 

R 

201177 

R 

LAC 

( t T Y1 



00064 

R 

041021 

R 

DAC 

TEMP3 

/SAVE ADDRESS OF TTY TABLE 

o 

00065 

R 

777777 

A 

LAW 

» i 


00066 

R 

061021 

R 

DAC# 

TEMP3 



00067 

R 

441021 

R 

I sz 

TEMP3 


o 

00070 

R 

441020 

R 

ISZ 

TEMP 2 


00071 

R 

600066 

R 

JMP 

» *3 



00072 

R 

100624 

R 

JMS 

SETPRT 

/SET UP ASCII CHARACTERS, 

o 

00073 

R 

620031 

R 

JMP* 

INIT 






/TRANSMIT A f 

CHARACTER! TO INITIALIZE ALL TELETYPES, 


00074 

R 

000000 

A 

TRNSMT 0 



o 

00075 

R 

777760 

A 

LAW 

*20 


00076 

R 

041017 

R 

DAC 

TEMPI 

/= TO 16 TTY'S 


- 00077 

P 

041020 

R 

DAC 

TEMP2 


o 

00100 

R 

201200 

R 

LAC 

CtLSl 


00101 

R 

041021 

R 

DAC 

TEMP3 

/SAVE ADDRESS OF TLS JOT'S 


00102 

R 

201021 

R 

LAC 

TEMP3 


o 

00103 

R 

541041 

R 

SAD 

TESMO 

/IS THIS THE SILENT TTY? 

00104 

R 

600111 

R 

JMP 

« *5 

/YES 


00105 

R 

541024 

R 

SAD 

TEMP6 

/IS THIS THE SELECTED TTY? 

o 

00106 

R 

600111 

R 

JMP 

t *3 

/YES 

00107 

R 

201025 

R 

LAC 

TEMP7 



00110 

R 

421021 

R 

XCT* 

TEMP3 

/TYPE CARRIAGE RETURN ON ALL TTY 

0 

00111 

R 

441021 

R 

ISZ 

TEMP3 

00112 

R 

441017 

R 

ISZ 

TEMPI 

/INITIALIZED ALL TTY'S? 


00113 

R 

600110 

R 

JMP 

,-3 

/NO t 


o 


o 

o 

o 

o 

o 

o 

o 
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o 

o 

o 

o 
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o 
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/SERVICE ROUTINE OF EU5/19 TEST 
/ 


00115 

R 

000000 

A 

servce 

0 



00116 

R 

707764 

A 


EBA 



00X17 

R 

707702 

A 


EEM 



00120 

R 

041034 

R 


OAC 

SAVE AC 

/SAVE CONTENTS OF AC, 

00121 

R 

620122 

R 


JMP* 

QSTSW1 


00122 

R 

000000 

A 

DSTSW1 

0 



00123 

R 

201016 

R 


LAC 

WAJTQT 


00124 

R 

740200 

A 


SHA 


/HAVE TTY l S BEEN SET UP? 

00125 

R 

100510 

R 


JMS 

CHKFLG 

/NO, CHECK FLAGS 

00126 

R 

777777 

A 


LAN 



00127 

R 

041035 

R 


OAC 

FLGQRV 

/SET "NO-FLAG" INDICATOR 

00130 

R 

441015 

R 


ISH 

LOQPA 

/ECHO NEXT TTY? 

00131 

R 

741000 

A 


SKP 


/NO, CONTINUE 

00132 

R 

100373 

R 


JMS 

s ILENC 

/yes, float next tty 

00133 

R 

100224 

R 


JMS 

CHKREC 

/CHECK RECEIVER FLAGS 

00134 

R 

100150 

R 


JMS 

CHKTRN 

/CHECK TRANSHIT FLAGS 

00135 

R 

201040 

R 


LAC 

LONTTY 


00136 

R 

740200 

A 


SHA 


/IS ONLY ONE TTY AVAILABLE? 

00137 

R 

600605 

R 


JMP 

EXITM5 

/YES, EXIT "b5" 

00140 

R 

201035 

R 


LAC 

FLGDRV 

/NO, CONTINUE 

00141 

R 

740200 

A 


SHA 

/WERE ANY FLAGS SET? 

00142 

R 

600610 

R 


JMP 

NOFLAG 

/NO, EXIT 

00143 

R 

705512 

A 

EXIT 

705512 

/YES.'RPL! JOT 

00144 

R 

751100 

A 


$RA I C U A 


/JS " A P J „ ON? 

00145 

R 

201034 

R 


LAC 

SAVEAC 

/YES, RESTORE AC 

00146 

R 

703344 

A 


D8R 


/NO, EXIT 

00147 

R 

620115 

R 


JMP* 

SERVCE 






/CHECK 

f 

FQR ANY 
/ 

0 

TRANSMITTER 

FLAGS BEJNG SET 

00150 

R 

000000 

A 

chktrn 



00151 

R 

201201 

R 


LAC 

(TSF1-1 

/LOAD ADDRESS OF TRANS, FLAGS 

00152 

R 

041017 

R 


OAC 

TEMPI 

/SAVE It 

00153 

R 

201202 

R 


LAC 

( TLSlwl 

/LOAD ADDRESS OF TLS'S 

00154 

R 

041020 

R 


OAC 

TEMP2 


00155 

R 

201203 

R 


LAC 

< TCFW 

/LOAD ADDRESS OF TCF'S 

00156 

R 

041023 

R 


OAC 

TEMR5 


00157 

R 

201204 

R 


LAC 

( P R T 1 A j? 1 

/PRJ1A-1 ADORESS 

00160 

R 

041022 

R 


DAC 

TEMP4 


00161 

R 

441017 

R 

QKTRN1 

IS/ 

TEMPI 

/INCREMENT 'TSEITaBLE 

00162 

R 

441020 

R 


IS/ 

TEMP2 

/INCREMENT 1 TLS ' TABLE 

00163 

R 

441023 

R 


ISH 

TEMP5 

/INCREMENT • TCF • TABLE 

00164 

R 

441022 

R 


ISH 

TEMP4 

/INCREMENT PRINT TABLE 

00165 

R 

201017 

R 


LAC 

TEMPI 


00166 

R 

541205 

R 


SAD 

(TCF1 

/END OF TABLE? 

00167 

R 

620150 

R 


JMP* 

chktrn 

/YES, NO TRANS, FLAGS SET 

00170 

R 

421017 

R 


XCT* 

TEMPI ’ 

/NO, IS FLAG SET? 

00171 

R 

600161 

R 


JMP 

CKTRN1 

/NO, CHECK NEXT FLAG 


/ 
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o 

00172 

R 

141035 

R 


P2M 

FLQDRV 


001/3 

R 

421023 

R 


XCT# 

TEMP 5 


00174 

R 

201020 

R 


l AC 

TEMP2 

o 

00175 

R 

541041 

R 


SAD 

TLSMQ 


00176 

R 

600161 

R 


JMP 

CKTRN1 


00177 

R 

221022 

R 


LAC# 

T E M P 4 " 

o 

00200 

R 

041024 

R 


DAC 

T E M P 6 


00201 

R 

221024 

R 


LAC# 

TEMP 6 


00202 

R 

741200 

A 


SNA 


o 

00203 

R 

100217 

R 


JMS 

RESPRT 


00204 

R 

100565 

R 


JMS 

hqldsw 


00205 

R 

221024 

R 


LAC# 

TEMP6 

o 

00206 

R 

421020 

R 


XCT# 

TEMP? 


00207 

R 

461022 

R 


J S2# 

TEMP4 


00210 

R 

201036 

R 


LAC 

H 0 L S E I 

o 

00211 

R 

751200 

A 


SNAJCLA 



00212 

R 

600161 

R 


JMP 

CKTRN1 


00213 

R 

141036 

R 


D2M 

house r 

o 

00214 

R 

041025 

R 


DAC 

TEMP 7“ 


00215 

R 

100074 

R 


JMS 

TRNSMT 


00216 

R 

620150 

R 


JMP# 

chktrn 

o 






/ 







/reset 

PRINT T A fi L. E 
/ 

o 

00217 

R 

000000 

A 

RESRRT 

t 

0 



00220 

R 

201206 

R 


LAC 

(PRTTAB 


00221 

R 

061022 

R 


DAC# 

T E M P 4 

o 

00222 

R 

041024 

R 


DAC 

T EMP6 


00223 

R 

620217 

R 


JMP# 

RESPRT 

o 





/CHECK 

FOR ANY 

RECEIVER F LA( 






/IF THE 

'SILENT 

t TTY’S FLAG 






/CHARACTER RECEIVED, 

o 






/ 



00224 

R 

000000 

A 

OHKREC 

0 



00225 

R 

201207 

R 


LAC 

(KSF1-1 

o 

00226 

R 

041017 

R 


DAC 

TEMPI 


00227 

R 

201210 

R 


LAC 

CKRBl’-l 


00230 

R 

041020 

R 


DAC 

TEMP2 

o 

00231 

R 

201202 

R 


LAC 

(tLSl^l 


00232 

R 

041021 

R 


DAC 

TEMP3 


00233 

R 

441017 

R 

CKREC1 

IS* 

TEMPI 

o 

00234 

R 

441020 

R 


ISZ 

TEMP2 


00235 

R 

441021 

R 


ISZ 

TEMP3 


00236 

R 

201017 

R 


LAC 

TEMPI 

o 

00237 

R 

541211 

R 


SAD 

(KRB1 


00240 

R 

620224 

R 


‘JMP# 

chkrec 


00241 

R 

421017 

R 


XCT# 

tempi" 

o 

00242 

R 

600233 

R 


JMP 

CKREC1 


00243 

R 

421020 

R 


XCT# 

TEMP?*’ 


00244 

R 

141035 

R 


D7M 

flgqrv 

o 






.EJECT 



o 


o 


/YES, CLEAR 'NO FLAG' SWITCH 
/clear FLAG 

/IS FLAG FROM floating TTY? 

/YES, IGNORE FLAG 

/= TO ADDRESS OF THE PRINT TABLE POINTER 
/SAVE IT 

/- TO CURRENT CHARACTER 
/end of print table? 

/YES, reset PRINT TABLE 
/CHECK FOR HOLD SWITCH 
/GET CHARACTER 
/TRANSMIT NEXT CHAR, 

/INDEX TABLE POINTER 

/WAS THE HOLD SWITCH SET? 

/NO i CHECK FOR NEXT FLAG 
/YES RE, SELECT ALL TTY'S 


/RELOAD PRINT TABLE 


OR BEING SET AND 
SET i ECHO BACK THE 


/AUDRRESS OF HEC, FLAGSel 


/ADDRESS OF ' KRB ' S ' 
/ADDRESS OF 'TLS'S' 


/END OF TABLE! 

/YES, ALL FLAGS CHECKED, 
/NO, IS FLAG SET? 

/NO, CHECK NEXT FLAG 
/YES, CLEAR THE FLAG 
/CLEAR 'NO FLAG' SWITCH 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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00245 

R 

201020 

R 


uc 

TEMP? 


00246 

R 

541042 

R 


SAD 

KKUMQ 

/IS THIS THE SILENT TTY? 

00247 

R 

741000 

A 


SKP 


/YES 

00250 

R 

600233 

R 


JMP 

CKRECl 

/NO, IGNORE FLAG 

00251 

R 

100565 

R 


JMS 

HOLDS W 

/CHECK FOR HOED SWITCH, 

00252 

R 

421020 

R 


XCT* 

TEMP2 

/YES, READ THE CHAR, 

00253 

R 

541212 

R 


SAD 

(201 

/WAS * * A * TYPED? 

00254 

R 

741000 

A 


SKP 


/yes, compliment 'Echohold' mode 

00255 

R 

620270 

R 


JMP# 

DSTSW2 

/no, CONTINUE 

00256 

R 

201032 

R 


LAC 

ttyhold 


00257 

R 

740001 

A 


CMA 

/COMPLIMENT ' ECHOHOLD l SWITCH 

00260 

R 

041032 

R 


QAC 

TTYHQLP 


00263, 

R 

740200 

A 


52 A 

/SET UP 'ECHOHOLD! MODE? 

00262 

R 

600277 

R 


JMP 

ECQTTY 

/YES, ENTER 'ECHOHOLD! MODE 

00263 

R 

777777 

A 


LAW 


/NO, EXIT 'ECHOHOLD' MODE 

00264 

R 

041015 

R 


DAC 

LOOPA 

/SET UP TO FLOAT NEXT TELETYPE 

00265 

R 

201176 

R 


LAC 

(RECA 

/ON THE NEXT PASS, 

00266 

R 

040270 

R 


DAC 

DSTSW2 


00267 

R 

600233 

R 


JMP 

/ 

0 

CKRECl 


00270 

R 

000000 

A 

QSTSW? 



00271 

R 

421021 

R 

RECA 

XCT# 

TEMP3 

/TYPE IT 

00272 

R 

201036 

R 


LAC 

HOLSEI 


00273 

R 

741200 

A 


SNA 


/WAS THE HOLD SWITCH SET? 

00274 

R 

600233 

R 


JMP 

CKRECl 

/NO, CONTINUE 

00275 

R 

141036 

R 


DHM 

HOUSE? 

/YES, CLEAR SWITCH AND EXIT 

00276 

R 

620224 

R 


JMP# 

CHKREC 






/SET UP 

TO DECODE SELECTED TTY 
/ 

ON ENTERING 'ECHOHOLD' MODE, 

00277 

R 

201213 

R 

ECQTTY 

LAC 

(RECB 


00300 

R 

040270 

R 


DAC 

DSTSW2 

/SET DISTRIBUTION SW FOR 'ECHOHOLD 

00303, 

R 

141031 

R 


DHM 

SAVNUM 

/CLEAR TTY N0| counter 

00302 

R 

760243 

A 


LAW 

243 

/RESPOND WITH '#' , 

00303 

R 

600271 

R 


JMP 

7 

THE 

7 

SAD 

RECA 






/DECODE 

number of selected 

teletype, 

00304 

R 

541214 

R 

RECB 

(215 

/WAS >CR! TYPED TO TERMINATE? 

00305 

R 

600350 

R 


JMP 

EXTECO 

/YES, COMPUTE SELECTED TTY 

00306 

R 

541215 

R 


SAD 

(3/7 

/WAS 'RUBOUT' TYPED? 

00307 

R 

600341 

R 


JMP 

RUBOUT 

/YES, DELETE LAST CHARACTER 

00310 

R 

041027 

R 


DAC 

TEMP9 ~ 

/SAVE CHARACTER 

00311 

R 

501216 

R 


AND 

(17 

/MASK N0, 

00312 

R 

041026 

R 


DAC 

TEMPO 

/NO, SAVE NUMBER 


/ 
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i MODE 
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003*3 

R 

201217 

R 


LAC 

(TABNUM^l 

003X4 

R 

041030 

R 


DAC 

T E M P 1 0 

003*5 

R 

44X030 

R 


IS? 

TEMP10 

003X6 

R 

221030 

R 


LAC« 

TLMP10 

003X7 

R 

541027 

R 


SAD 

TEMP9 

00300 

R 

600327 

R 


JMP 

CMPUTE 

0032 X 

R 

541220 

R 


SAD 

(270 

00322 

R 

741000 

A 


SKP 


00323 

R 

600315 

R 


JMP 

| "56 

00324 

R 

760277 

A 

TYPEQM 

LAW 

277 

00325 

R 

421021 

R 


XCT<* 

TEMP 3 

00326 

R 

600233 

R 


JMP 

/ 

LAC 

CKREC1 

00327 

R 

201031 

R 

cmpute 

SAVNUM 

00330 

R 

746010 

A 


cllirtl 


0033X 

R 

740010 

A 


PAL 


00332 

R 

041031 

R 


DAC 

SAVNUM 

00333 

R 

201026 

R 


LAC 

TEMPS 

00334 

R 

501221 

R 


AND 

(7 

00335 

R 

341031 

R 


TAD 

SAVNUM 

00336 

R 

041031 

R 


DAC 

SAVNUM 

00337 

R 

20102/ 

R 


LAC 

TEMP9 

00340 

R 

600271 

R 


JMP 

/ 

LAC 

r|ca 

0 0 3 4 X 

R 

201031 

R 

RUNOUT 

SAVNUM 

00342 

R 

744020 

A 


CLURAR 


00343 

R 

744020 

A 


CLLJRAR 


00344 

R 

744020 

A 


CLURAR 


00345 

R 

041031 

R 


DAC 

SAVNUM 

00346 

R 

76025? 

A 


LAW 

25 7 

00347 

R 

600325 

R 


JMP 

/ 

LAC 

T Y R E 0 M * 1 

00350 

R 

201031 

R 

extecq 

SAVNUM 

0035* 

R 

741200 

A 


SNA 


00352 

R 

600324 

R 


JMP 

TYPEQM 

00353 

R 

201031 

R 


LAC 

SAVNUM 

00354 

R 

501216 

R 


AND 

(17 

00355 

R 

041031 

R 


DAC 

SAVNUM 

00356 

R 

501222 

R 


AND 

(10 

00357 

R 

750200 

A 


shaicla 


00360 

R 

201223 

R 


LAC 

(2 

00361 

R 

341031 

R 


TAD 

SAVNUM 

00362 

R 

740001 

A 


CM A 


00363 

R 

341224 

R 


TAD 

U 

00364 

R 

041031 

R 


DAC 

SAVNUM 

00365 

R 

777777 

A 


LAW 

■*1 

00366 

R 

041015 

R 


DAC 

LOOPA 

00367 

R 

201176 

R 


LAC 

(RECA 

00370 

R 

040270 

R 


DAC 

0STSW2 

00371 

R 

600233 

R 


JMP 

CKRECX 

00372 

R 

600233 

R 


JMP 

CKREC1 


/ 

.EJECT 


/CHECK FOR LEGAL NO, 


/ADD NUMBER 


/NO. TYPE '?', 
/TYPE character 


/PRINT N0, 


/DELETE ' 1 1 CHARACTER 


/TYPE A '/' TP INICaTE RUBOUT 


/were ANY CHARACTERS TYPED? 
/NO, ILLEGAL COMMAND, TYPE * ? * 
/YES, CONTINUE 
/MAXIMIM N0, OF TTY'S 16 

/save compliment of tty n0. 

/IS N0 . >THAN '7'? 

/YES, ADD 1 2 ' TO THE N0 


/FLOAT SELECTED TELETYPE on NEXT PASS 
/SET UP FOR HOLD 'ECHO' MODE, 



PAGE 


l, Tin? SRC 


LU5/19 SYSTEM EXERCISER TEST 


8 


/ROUTINE TO FLOAT "1" TTY WHILE TYPING ON ALL OTHERS, 
/ 


003 76 

R 

000000 

A 

SILENC 

0 



00374 

R 

776X00 

A 


LAW 

*1700 


00375 

R 

041015 

R 


0 AC 

LOOPA 

/SET UP TO PRINT "650" CHAR, 

00376 

R 

141040 

R 


DZM 

LQNTTY 


00377 

R 

201041 

R 


LAC 

TLSMO" 


00400 

R 

041020 

R 


DAC 

TEMP2 

/SET UP TO REIN JT SILENT TTY, 

00403, 

R 

2010^2 

R 


LAC 

TTYHOLD 


00402 

R 

740200 

A 


S7 A 


/'ECHDHOLD MODE' SELECTED 

00403 

R 

100460 

R 


JMS 

SELECT 

/yes, select tty 

004 0 4 

R 

141032 

R 


DHM 

TTYHOLD 

/clear 'MODE' on ILLEGAL TTY N0, 

00405 

R 

201176 

R 


LAC 

(RECA 


00406 

R 

040270 

R 


DAC 

0STSW2 


00407 

R 

441041 

R 

SILNC1 

1S2 

tlsmo' 

/INCREMENT 'TLS< ADORESS, 

004X0 

R 

441042 

R 


!S0 

KRBtMO 

/INCREMENT krb aodress 

004X1 

R 

201041 

R 


LAC 

TLSMO 


004X2 

R 

541225 

R 


SAD 

(TSFX 

/END OF ' TLS TABLE? 

00413 

R 

100424 

R 


JMS 

REPONT 

/YES, reset pointers 

00414 

R 

541200 

R 


SAD 

(TLS1~ 

/NO, IS THIS THE FIRST TTY? 

004X5 

R 

100432 

R 


JMS 

CHKONE 

/YES, CHECK FOR BEING THE ONLY TTY 

00416 

R 

221041 

R 


LAC# 

TLSMO“ 


00417 

R 

541226 

R 


SAD 

(740000 

/is tty available? 

004 20 

R 

600407 

R 


JMP 

SiLNCX 

/no, check next tty 

00421 

R 

750000 

A 

SILEXT 

CLA 


/RESTART SILENT TTY 

00422 

R 

421020 

R 


XCT* 

TEMP2 

/XCT TLS JOT 

00423 

R 

620373 

R 


JMP* 

/ 

SILENC 

/YES, FLOAT THIS TTY 

00424 

R 

000000 

A 

REPONT 

/ 

0 



00425 

R 

2012XX 

R 


LAC 

(KRBX 


00426 

R 

041042 

R 


DAC 

KRBMO 


00427 

R 

201200 

R 


LAC 

(TLS1 


00430 

R 

0 4 1 0 4 X 

R 


DAC 

tlsmo 


00431 

R 

620424 

R 


JMP* 

REPONT 







, EJECT 
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uu?x? 

1 SRC 

LU5/19 SYSTEM EXERCISER 

TEST 





/CHECK 

FOR ONLY 

'll TTY BEING 

AVAILABLE AND IF SO SET 





/UP TO 

exit via 
/ 

* *5 t 


00432 

R 

000000 

A 

chkqne 

f 

0 



00433 

R 

200657 

R 


LAC 

TLS2 


00434 

R 

541227 

R 


SAD 

( 704024 

/IS TTY #2 AVAILABLE? 

00435 

R 

620432 

R 


JMP# 

CHKONE 

/YES, EXIT 

00436 

R 

200660 

R 


LAC 

TLS3 


00437 

R 

541230 

R 


SAD 

(704044 

/IS TTY #3 AVAILABLE? 

00440 

R 

620432 

R 


JMP 9 

CHKONE 

/yes, EXIT 

00441 

R 

201(337 

R 


LAC 

MOQESW 

/TTY UX ONLY 

00442 

R 

740001 

A 


CM A 


/COMPLEMENT THE MqDE SWITCH 

00443 

R 

041037 

R 


DAC 

MODES W 


00444 

R 

741200 

A 


SNA 


/ = TO TTY 0? 

00445 

R 

600451 

R 


JMP 

* + 4 

/YES RESTART TTY 

00446 

R 

777777 

A 


LAW 

*1 

/NO i SILENCE TTY #1 

00447 

R 

041040 

R 


DAC 

LQNTTY 

/SET UP TO EXIT -5 

00450 

R 

620432 

R 


JMP* 

CHKONE 


00451 

R 

201202 

R 


LAC 

tTLSW 


00452 

R 

041041 

R 


DAC 

TLSMO 


00453 

R 

201210 

R 


LAC 

(KRB1-1 


00454 

R 

041042 

R 


DAC 

KRBMO 


00455 

R 

750000 

A 


CLA 



00456 

R 

400656 

R 


xct 

TLS1 


00457 

R 

620373 

R 


JMP» 

t 

SILENC 






/set uf 

5 TO FLOAT THE SElECtE 
/ 

p TELETYPE, 

00460 

R 

000000 

A 

SELECT 

f 

0 



00461 

R' 

201202 

R 


LAC 

( TLS1®1 


00462 

R 

041026 

R 


DAC 

TEMPS 

/TLS AQDRESS*1 

00463 

R 

201210 

R 


LAC 

CKRB1*1 


00464 

R 

041027 

R 


DAC 

TEMP9 

/K«B ADDRESS®! 

00465 

R 

441026 

R 

SELNXT 

ISH 

TEMPS 


00466 

R 

441027 

R 


ISZ 

TEMP9 


00467 

R 

441031 

R 


ISZ 

SAVNUM 

/WHEN '0' 3 TO SELECTED TTY, 

00470 

R 

741000 

A 


SKP 



00471 

R 

600474 

R 


JMP 

t + 3 


00472 

R 

100503 

R 


si MS 

CHKSEU 

/CHECK FOR LEGAL TELETYPE NO, 

00473 

R 

600465 

R 


JMP 

SELNXT 


00474 

R 

100503 

R 


JMS 

CHKSEU 

/CHECK IS SELECTED TTY IS LEGAL 

00475 

R 

141015 

R 


D j?M 

LQOPA 


00476 

R 

201026 

R 


LAC 

temps 

/set up selected teletype 

00477 

R 

041041 

R 


DAC 

TLSMO 


00500 

R 

201027 

R 


LAC 

TEMP9 


00501 

R 

041042 

R 


DAC 

KRBMO 


00502 

R 

600421 

R 


JMP 

i 

S I LEX I 

/REINITIALIZE silent TTY, 

00503 

R 

000000 

A 

CHKSEU 

/ 

0 



00504 

R 

221026 

R 


LAC# 

'IEMPS 


00505 

R 

541226 

R 


SAD 

(740000 

/is this a legal tty? 

00506 

R 

620460 

R 


JMP* 

select 

/NO, EXIT 

00507 

R 

620503 

R 


JMP# 

CHKSEU 

/yes, continue 



o 

o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


UTA5/19 SYSTEM EXERCISER TEST 
.EJECT 


O 


O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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n ITXSiy SRC LT15/19 SYSTEM EXERCISER TEST 

/ 


/INITIALIZE ALL AVAILABLE TTY'S 
/ 


00510 

R 

000000 

A 

CHKFLG 

0 



00511 

R 

201201 

R 


LAC 

(TLS16 

/TSFi.L ADDRESS 

00512 

R 

041017 

R 


DAC 

TEMPI" 


00513 

R 

201203 

R 


LAC 

( T S F 1 6 

/TCFl.l ADDRESS 

00514 

R 

041020 

R 


DAC 

TEMP2 


00515 

R 

201231 

R 


LAC 

(KRB16 

/ttyl-l address 

00516 

R 

041021 

R 


PAC 

TEMP3" 

00517 

R 

441017 

R 

CKFLSi 

IS? 

TEMPI 


00520 

R 

441020 

R 


IS? 

TEMP2 


00521 

R 

441021 

R 


is?. 

TEMP3 


00522 

R 

201017 

R 


LAC 

TEMPI 


00523 

R 

541205 

R 


SAP 

(TCF1 

/ALL FLAGS BEEN CHECKED? 

00524 

R 

600532 

R 


JMP 

EXTCKF 

/YES, exit 

00525 

R 

421017 

R 


XCT* 

TEMPI 

/is flag SET? 

00526 

R 

600517 

R 


JMP 

CKFLC1 

/NO, CHECK NEXT FLAG 

00527 

R 

421020 

R 


XCT# 

TEMP2 

/YES, CLEAR THE FLAG 

00530 

R 

161021 

R 


D?M# 

TEMP 3 

/clear TTY POINTER 

00531 

R 

600517 

R 


JMP 

CKFIG1 


00532 

R 

441016 

R 

EXTCKF 

IS? 

WAITCf 

/HAVE ALL FLAGS HAD TIME TO 

00533 

R 

600605 

R 


JMP 

E X I T M 5 

/NO. EXIT "«5>' 

00534 

R 

777757 

A 


LAW 

”21 

/YES 

00535 

R 

041017 

R 


DAC 

TEMPI 

/=TQ 16 TTY'S 

00536 

R 

201231 

R 


LAC 

( T T Y 1 " 1 

/TTY1-1 ADDRESS 

00537 

R 

041020 

R 


PAC 

TEMP? 


00540 

R 

201202 

R 


LAC 

(Tusin 

/TLSl.l ADDRESS 

00541 

R 

041021 

R 


DAC 

TEMP3 


00542 

R 

441017 

R 

CKFLG2 

IS? 

TEMPI. 


00543 

R 

741000 

A 


SKP 



00544 

R 

600555 

R 


JMP 

EXTCK2 


00545 

R 

441020 

R 


IS? 

TEMP?' 


00546 

R 

441021 

R 


IS? 

TEMP3 


00547 

R 

221020 

R 


LAC# 

TEMP? 


00550 

R 

741200 

A 


SNA 


/WAS TTY'S FLAG SET 

00551 

R 

600542 

R 


JMP 

CKFLG2 

/YES, CHECK NEXT TTY 

00552 

R 

201226 

R 


LAC 

( 740000 

/NO, 

00553 

R 

061021 

R 


DAC# 

T E M P 3 ~ 

/DEPOSIT ' NgP_' FOR IOT 

00554 

R 

600542 

R 


JMP 

/ 

LAC 

CKFLG2 


00555 

R 

201202 

R 

EXTCK2 

(TLSin 


00556 

R 

041041 

R 


DAC 

tlsmo 

/SAVE ADDRESS OF 'TLS' TABLE 

00557 

R 

201210 

R 


LAC 

( K R B 1 1 

/KRBl.l ADDRESS 

00560 

R 

041042 

R 


PAC 

KRBMO 

/SAVE ADDRESS OF ' KRB l TABLE 

00561 

R 

760212 

A 


LAW 

212 


00562 

R 

041025 

R 


DAC 

TEMP7 

/aTO line FEED 

00563 

R 

1000/4 

R 


JMS 

TRNSMT 

/REINITIALIZE ALL TELETYPES 

00564 

R 

620510 

R 


JMP# 

7 

, EJECT 

CHKFLP 




o 


o 


page; 12 


LT1P1V SRC 


1,115/19 SYSTEM' EXERCISER TEST 


O 


o 


o 


o 


/TEST FOR DATA 
/ 


SWA WHICH INHIBITS THE LT15/19 TEST 



00565 

R 

000000 

A 

HQLPSW 0 



o 

00566 

R 

750004 

A 

IAS 




00567 

R 

500010 

R 

AND 

DATASW 

/DATA SWA 


00570 

R 

741200 

A 

SNA 


/IS SWITCH SET? 

o 

00573, 

R 

620565 

R 

JMF# 

hqldsw 

/NO, CONTINUE 


00572 

R 

777777 

A 

LAW 


/YES, 


00573 

R 

041036 

R 

QAC 

HOLSET 

/SET HOED SWITCH INDICATOR 

o 

00574 

R 

10063/ 

R 

JMS 

CLRFLD 

/CLEAR ALL TRANSMITTER RECEIVER FLAGS 


005/5 

R 

200122 

R 

LAC 

dstswI 



00576 

R 

041033 

R 

DAC 

SAVPST 

/SAVE RETURN ADDRESS 

o 

00577 

R 

201232 

R 

LAC 

( H 0 L D * 1 



00600 

R 

040122 

R 

DAC 

DSTSWI 



00601 

R 

600605 

R 

JMP 

EXITM5 

/EXIT U5t 

o 





/ 




00602 

R 

201033 

R 

H 0 L 0 1 1 LAC 

savdst 



00603 

R 

040122 

R 

DAC 

psTswi 

/RESTORE RETURN ADDRESS 

o 

00604 

R 

600566 

R 

JMP 

holds w+i 

/REaTEST SWITCH 






j 

/SETUP FOR »«5’ 

EX|T 


o 





/ 




00605 

R 

777773 

A 

EXITM5 LAW 

«5 



00606 

R 

040020 

R 

DAC 

SYSERR 


o 

00607 

R 

600143 

R 

JMP 

EXIT 







/EXIT For a ’NO* 

-FLAG’ CONDITION 


o 





/ 




00610 

R 

705512 

A 

NOFLAG 705512 


/TEST FOR 'API ' ( RPL > 


00611 

R 

741100 

A 

SPA 


/JS * A P I * ON? 

o 

00612 

R 

600615 

R 

UMP 

ERR0R1 

/YES, 'API' ERROR 


00613 

R 

777777 

A 

LAW 


/NO 


00614 

R 

620115 

R 

JMP « 

SERVCE 

/normal exit 

o 





/ 








/ERROR 1. API INTERRUPTED WITH 
/ 

NO FLAGS SET 

o 

00615 

R 

777777 

A 

f 

FRRQRl LAW 

»1 

/SET UP ERROR 3 


00616 

R 

040020 

R 

DAC 

SYSERR 



00617 

R 

201224 

R 

LAC 

U 

/ERROR CODE 1» API ERROR 

o 

00620 

R 

040022 

R 

DAC 

ENCODE 



00621 

R 

777777 

A 

LAW 

5*1 



00622 

R 

040021 

R 

DAC 

ercode»i 

/PRINT HI DATA WORD 

o 

00623 

R 

600143 

R 

JMP 

exit 



/ 

.EJECT 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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LT15/19 SYSTEM EXERCISER TEST 


limy src 


/ 

/se:t up AN ASCII CHARACTER character table for all TELETYPES 
/ 


00624 

R 

000000 

A 

SETPRT 0 


00625 

R 

777762 

A 

LAW 

"16 

00626 

R 

041021 

R 

DAC 

TEMP3 

00627 

R 

201233 

R 

LAC 

(PRT1A 

00630 

R 

041022 

R 

DAC 

TEMP4 

00631 

R 

201206 

R 

LAC 

(PRTTAB 

00632 

R 

061022 

R 

DAC* 

TEMP4 

00633 

R 

441022 

R 

JS2 

TEMP 4 

00634 

R 

441021 

R 

ISH 

TEMP3 

00635 

R 

600632 

R 

JMP 

, ^3 

00636 

R 

620624 

R 

JMP* 

SETPRT 


/ 


/clear all transmitter and receiver flags 
/ 

00637 R 000000 A ClRFLG 0 


00640 

R 

777760 

A 

LAW 

^20 

00641 

R 

041017 

R 

DAC 

TEMPI 

00642 

R 

201205 

R 

LAC 

( TCF1 

00643 

R 

041022 

R 

DAC 

TEMP4 

00644 

R 

201211 

R 

LAC 

(KR81 

00645 

R 

041023 

R 

DAC 

TEMP5 

00646 

R 

421022 

R 

XCT* 

TEMP4 

00647 

R 

421023 

R 

xct* 

TEMPS 

00650 

R 

441022 

R 

IS2 

TEMR4 

00651 

R 

441023 

R 

ISH 

TEMP5 

00652 

R 

441017 

R 

ISZ 

TEMPI 

00653 

R 

600646 

R 

JMP 

i *5 

00654 

R 

620637 

R 

JMP* 

, EJECT 

CLRFL 



o 


o 


o 
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UT151 I > 

1 SRC 

o 

o 

00655 

R 

740000 

A 


00656 

R 

704004 

A 

o 

00657 

R 

704024 

A 

00660 

R 

704044 

A 


00661 

R 

704064 

A 

o 

00662 

R 

704604 

A 

00663 

R 

704204 

A 


00664 

R 

704224 

A 

o 

00665 

R 

704244 

A 

00666 

R 

704264 

A 


00667 

R 

704624 

A 

o 

00670 

R 

704404 

A 

006/1 

R 

704424 

A 


00672 

R 

704444 

A 

o 

00673 

R 

704464 

A 

00674 

R 

704644 

A 


00675 

R 

704664 

A 


00676 

R 

704001 

A 

o 

00677 

R 

704021 

A 


00700 

R 

704041 

A 

o 

00701 

R 

704061 

A 

00702 

R 

704601 

A 


00703 

R 

704201 

A 

o 

00704 

R 

704221 

A 

00705 

R 

704241 

A 


00706 

R 

704261 

A 

o 

00707 

R 

704621 

A 

00710 

R 

704401 

A 


00711 

R 

704421 

A 

o 

00712 

R 

704441 

A 

00713 

R 

704461 

A 


00714 

R 

704641 

A 

o 

00715 

R 

704661 

A 

00716 

R 

704002 

A 


00717 

R 

704022 

A 

o 

00720 

R 

704042 

A 

00721 

R 

704062 

A 


00722 

R 

704602 

A 

o 

00723 

R 

704202 

A 

00724 

R 

704222 

A 


00725 

R 

704242 

A 


00726 

R 

704262 

A 

o 

00727 

R 

704622 

A 


00730 

R 

704402 

A 

o 

00731 

R 

704422 

A 

00732 

R 

704442 

A 


00733 

R 

704642 

A 

o 

00734 

R 

704662 

A 


l, T 1 5 / 1 9 SYSTEM EXERCISER TEST 


/ 


/LT15/19 

> I0T T A8L,E 
/ 

740000 

TTY I QT 

TL.S1 

704004 

TLS2 

704024 

TLS3 

704044 

TLS4 

704064 

TLS5 

704604 

TLS6 

704204 

TLS7 

704224 

TLS8 

704244 

TL.S9 

704264 

TIS10 

704624 

TtSll 

704404 

TES12 

704424 

TLS13 

704444 

TLS14 

704464 

TLS15 

704644 

T U S 1 6 

704664 

TSF1 

704001 

TSF2 

704021 

TSF3 

704041 

TSF4 

704061 

TSF5 

704601 

TSF 6 

704201 

TSF7 

704221 

TSF8 

704241 

TSF9 

704261 

TSF40 

704621 

TSF11 

704401 

TSF12 

704421 

TSF13 

704441 

TSF14 

704461 

TSF15 

704641 

TSF16 

704661 

TCF1 

704002 

TCF2 

704022 

TCF3 

704042 

TCF4 

704062 

TCF5 

704602 

TCF6 

704202 

TCF7 

704222 

TCF8 

704242 

TCF9 

704262 

TCF10 

704622 

TCF11 

704402 

TCF12 

704422 

TCF13 

704442 

TCF15 

704642 

TCF16 

704662 

.EJECT 


o 

o 

o 

o 


o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 
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U1519 

1 SRC 

00735 

R 

704101 

A 

00736 

R 

704121 

A 

00737 

R 

704141 

A 

00740 

R 

704161 

A 

00741 

R 

704701 

A 

00742 

R 

704301 

A 

00743 

R 

704321 

A 

00744 

R 

704341 

A 

00745 

R 

704361 

A 

00746 

R 

704721 

A 

00747 

R 

704501 

A 

00750 

R 

704521 

A 

00751 

R 

704541 

A 

00752 

R 

704561 

A 

00753 

R 

704741 

A 

00754 

R 

704761 

A 

00755 

R 

704102 

A 

00756 

R 

704122 

A 

00757 

R 

704142 

A 

00760 

R 

704162 

A 

00761 

R 

704702 

A 

00762 

R 

704302 

A 

00763 

R 

704322 

A 

00764 

R 

704342 

A 

00765 

R 

704362 

A 

00766 

R 

704722 

A 

00767 

R 

704502 

A 

00770 

R 

704522 

A 

00771 

R 

704542 

A 

00772 

R 

704562 

A 

0077 3 

R 

704/42 

A 

00774 

R 

704762 

A 

00775 

R 

000000 

A 

00776 

R 

000000 

A 

00777 

R 

000000 

A 

01000 

R 

000000 

A 

01001 

R 

000000 

A 

01002 

R 

000000 

A 

01003 

R 

000000 

A 

01004 

R 

000000 

A 

01005 

R 

000000 
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00277 
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EEM 

707702 
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ercqde 
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00615 

R 

exit 

00143 
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E X I T M 5 

00605 

R 

EXTCKF 

00532 

R 

EXTCK2 

00555 

R 

EXTECQ 

00350 

R 

FUGDRV 

01035 

R 

H P I, D S W 

00565 

R 
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00602 

R 

HQLSET 

01036 
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00031 

R 

KRBMO 
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R 

KR81 

00755 

R 
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00766 
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KRBU 

00767 

R 

KRB12 

00770 

R 

KRB13 

00771 

R 

KRB14 

00772 
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KRB15 

00773 

R 

KRB16 

00774 

R 

KRB2 

00756 
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KRB3 

00757 
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KRB4 

00760 
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KRB5 

00761 
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KRB6 

00762 

R 

KRB7 
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KRB8 

00764 
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KRB9 

00765 
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KSFX 
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KSF12 

00750 
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KSF13 
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KSF'14 

00752 

R 


KSF15 

00753 
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KSF16 
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KSF2 

00736 
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R 

KSF5 
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R 

KSF6 
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R 

KSF7 
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R 

KSF8 

00744 

R 

KSF9 

007 45 

R 

MW 

00046 

R 

EONTTY 

01040 
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UOOPA 

01015 

R 

MODESW 

01037 

R 

N0Fl,AG 

00610 

R 

PRTTAB 

01062 

R 

o 

PRT1A 

01043 

R 

PRT10 

01054 

R 

PHT12A 

01055 

R 

PRT13A 

01056 

01044 

R 

PRT14A 

01057 

R 

PRT15A 

01060 

R 

PRT16A 

01061 

R 

PRT2A 

R 


PRT3A 

01045 

R 

PRT4 A 

01046 

R 

PRT5A 

01047 

R 

PRT6A 

01050 

R 

o 

PRT7A 

01051 

R 

PRT8A 

01052 

R 

PRT9A 

01053 

R 

reca 

00271 

R 

RECB 

00304 

R 

REPONT 

00424 

R 

RESPRT 

00217 

R 

rubout 

00341 

R 


SAVDST 

01033 

R 

SAVE AC 

01034 

R 

SAVNUM 

01031 

R 

SELECT 

00460 

R 
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secnxt 

00465 

R 

SERVCE 

00115 

R 

setprt 

00624 

R 

SIIENC 

00373 

R 

SIEEXT 

00421 

R 
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00407 
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R 
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TM10 

00667 
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T|.SU 
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R 

TIS14 

00673 
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R 

TSF7 

00704 

R 

TSF8 

00705 
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00655 
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TTY12 
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TTY13 
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TTY14 

01012 
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o 

USERSW 
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R 

DATASW 
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R 
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00020 

R 

ERCODE 


I N|T 

0003! 

R 

LAW 

00046 

R 

trnsmt 

00074 

R 

SERVCE 


PSTSWl 

00122 

R 

EXIT 

00143 

R 

chktrn 

00150 

R 

CKTRN1 

o 

RESPRT 

00217 

R 

CMKREC 

00224 

R 

CKREC1 

00233 

R 

DSTSW2 

RECA 

00271 

R 

ECOTTY 

00277 

R 

RECB 

00304 

R 

TYPEQM 


cmpute 

00327 

R 

rubqut 

00341 

R 

exteqq 

00350 

R 

SILENC 

o 

SJLNCl 

00407 

R 

silext 

00421 

R 

Bepqnt 

00424 

R 

CHKONE 
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00460 

R 

SELNXT 

00465 
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CHKSEL 
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R 
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CKFLGj, 

00517 
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EXTCKF 

00532 

R 

CKFLG2 

00542 

R 
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00565 

R 
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00602 
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EXITM5 

00605 

R 
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00615 
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TLS? 
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TTYIQT 

o 

tlsi 
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00660 
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TLS4 
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R 

TLS7 

00664 
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TLS8 


TLS9 
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00667 

R 

Tm.x 

00670 
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TLS13 
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